|
25
|
How can I determine if the giving input object is a file, folder (sample 2)
with Thumbnail1 do
begin
OutputDebugString( FormatABC('`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`',Null,Null,Null,'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg') );
OutputDebugString( FormatABC('`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`',Null,Null,Null,'C:\Program Files\Exontrol\ExThumbnail\Sample') );
OutputDebugString( FormatABC('`The ` + ffile + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`',Null,Null,Null,'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo2.jpg') );
end
|
|
24
|
Is there any function to get automatically the size of the file in KB, MB or GB
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Size: <b>` + fsizeF';
EndUpdate();
end
|
|
23
|
How can I get the size of the file (GB)
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Size: <b>` + ( (fsize/1024/1024/1024) format `` ) + ` GB(s)`';
EndUpdate();
end
|
|
22
|
How can I get the size of the file (MB)
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Size: <b>` + ( (fsize/1024/1024) format `` ) + ` MB(s)`';
EndUpdate();
end
|
|
21
|
How can I get the size of the file (KB)
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Size: <b>` + ( (fsize/1024) format `` ) + ` KB(s)`';
EndUpdate();
end
|
|
20
|
How can I get the size of the file (bytes)
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Size: <b>` + fsize + ` byte(s)`';
EndUpdate();
end
|
|
19
|
How do I get the time the file was created, opened and modified
with Thumbnail1 do
begin
BeginUpdate();
Padding := '';
Alignment := EXTHUMBNAILLib_TLB.exAlignBottomCenter;
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+ ' +
'`<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`';
SingleCaption := Caption;
EndUpdate();
end
|
|
18
|
How can I display the date/time the file/folder was last opened
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Opened: <b>` + date(fopened - bias/24/60)';
SingleCaption := Caption;
EndUpdate();
end
|
|
17
|
How can I display the date/time the file/folder was last modified
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Modified: <b>` + date(fmodified - bias/24/60)';
EndUpdate();
end
|
|
16
|
How can I display the date/time the file/folder was created
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Created: <b>` + longdate(date(fcreated - bias/24/60)) + ` ` + time(date(fcreated - bias/24/60))';
SingleCaption := Caption;
EndUpdate();
end
|
|
15
|
How can I get the alternate name of the file
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Alternate Name: <b>` + faname + `</b>, Name: <b>` + fname';
EndUpdate();
end
|
|
14
|
How can I get the file's extension
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Extension: <b>` + fext';
EndUpdate();
end
|
|
13
|
I've noticed the Caption property can use expressions, based on the file, the question is how can I use that feature without the Caption property
with Thumbnail1 do
begin
OutputDebugString( FormatABC('ffile +` ` + ( len(fname) ? `this is a file/folder`: `not found`)',Null,Null,Null,'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg') );
end
|
|
12
|
Can I determine if a file/thumbnail exists (sample 1)
with Thumbnail1 do
begin
BeginUpdate();
AddInputFiles('C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg');
AddInputFiles('sss');
Caption := 'len(fname) ? `this is a file/folder` : `<fgcolor=FF0000><u>not found`';
EndUpdate();
end
|
|
11
|
How can I display the name of the file
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := '`Name: <b>` + fname';
EndUpdate();
end
|
|
10
|
How can I display the full name of the file
with Thumbnail1 do
begin
BeginUpdate();
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
Caption := 'ffile';
EndUpdate();
end
|
|
9
|
How can I display the index/number of files/thumbnails
with Thumbnail1 do
begin
BeginUpdate();
AcceptFolders := EXTHUMBNAILLib_TLB.exIncludeSubFilesOnly;
AddInputFiles('C:\Program Files\Exontrol\ExThumbnail\Sample');
Caption := '(findex + 1) + ` of ` + fcount';
EndUpdate();
end
|
|
8
|
How can I add more files ( sample 3 )
with Thumbnail1 do
begin
AddInputFiles('C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg');
AddInputFiles('C:\Program Files\Exontrol\ExThumbnail\Sample\device.png');
end
|
|
7
|
How can I add more files ( sample 2 )
with Thumbnail1 do
begin
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\logo.png\r\nC:\Program Fi' +
'les\Exontrol\ExThumbnail\Sample\cordova.png';
end
|
|
6
|
How can I add more files ( sample 1 )
with Thumbnail1 do
begin
InputFile := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png';
end
|
|
5
|
How do I clear the control's content
with Thumbnail1 do
begin
InputFile := '';
end
|
|
4
|
How can I add a file ( sample 3 )
with Thumbnail1 do
begin
AddInputFiles('C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg');
end
|
|
3
|
How can I add a file ( sample 2 )
with Thumbnail1 do
begin
InputFiles := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
end
|
|
2
|
How can I add a file ( sample 1 )
with Thumbnail1 do
begin
InputFile := 'C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg';
end
|
|
1
|
How do I change the control's background color
with Thumbnail1 do
begin
BackColor := RGB(240,240,240);
end
|